home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PRIM
/
SOUND.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
22 lines
;;; compiled by @win386 on Sat Mar 13 01:40:22 1993
;;; from file c:/src/lucid-19.4/lisp/prim/sound.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'load-sound-file #[(filename sound-name &optional volume) "9¼ä┴┬!ê½ê¿¼ä┴─!ê┼ë╚Äè╔╩!ëqê╦ ê╠!ê╬ ╦ ê*₧ë½è╤╥!\")╙½î╘=¼çE¬äB!B*ç" [sound-name error "sound-name not a symbol" volume "volume not an integer or nil" nil data buf ((byte-code "½ä┴!ê┴ç" [buf kill-buffer] 2)) get-buffer-create " *sound-tmp*" erase-buffer insert-file-contents filename buffer-string sound-alist old delq copy-sequence purecopy 0] 5 "\
Read in an audio-file and add it to the sound-alist.
You can only play sound files if you are running on display 0 of the console
of a Sun SparcStation or an SGI machine. The sound file must be in the
Sun/NeXT U-LAW format." "fSound file name: \nSSymbol to name this sound: \nnVolume (0 for default): "])
(fset 'load-default-sounds #[nil "└┴!ê┬╞╟╚\"ê╞╔╩\"ê╞╦╠═#ê╞╬╧╨#ê)╤╥\"└╙!ê╘┬╩\"ç" [message "Loading sounds..." nil sound-alist exec-directory default-directory load-sound-file "sounds/drum-beep.au" drum "sounds/quiet-beep.au" quiet "sounds/bass-snap.au" bass 80 "sounds/whip.au" whip 70 append ((default bass) (undefined-key drum) (undefined-click drum) (command-error bass) (no-completion whip) (y-or-n-p quiet) (yes-or-no-p quiet) (isearch-failed quiet) (isearch-quit bass) (auto-save-error whip 100)) "Loading sounds...done" beep] 4 "\
Load and install some sound files as beep-types.
This only works if you're on display 0 of a Sun SparcStation or SGI machine." nil])